home *** CD-ROM | disk | FTP | other *** search
/ Amiga Developer CD 2.1 / Amiga Developer CD v2.1.iso / NDK / NDK_3.5 / Tools / ReActor / Examples / EuroCalc / EuroCalcFrameCD.asm < prev    next >
Encoding:
Assembly Source File  |  1999-10-27  |  6.4 KB  |  327 lines
  1.     IFND EUROCALCFRAMECD_I
  2. EUROCALCFRAMECD_I    SET    1
  3.  
  4.  
  5. ;-----------------------------------------------------------------------------
  6.  
  7.  
  8. * This file was created automatically by CatComp.
  9. * Do NOT edit by hand!
  10. *
  11.  
  12.  
  13.     IFND EXEC_TYPES_I
  14.     INCLUDE 'exec/types.i'
  15.     ENDC
  16.  
  17.     IFD CATCOMP_ARRAY
  18. CATCOMP_NUMBERS SET 1
  19. CATCOMP_STRINGS SET 1
  20.     ENDC
  21.  
  22.     IFD CATCOMP_CODE
  23. CATCOMP_BLOCK SET 1
  24.     ENDC
  25.  
  26.  
  27. ;-----------------------------------------------------------------------------
  28.  
  29.  
  30.     IFD CATCOMP_NUMBERS
  31.  
  32.     XDEF TX_WinTitle
  33. TX_WinTitle EQU 257
  34.     XDEF TX_TitleIconify
  35. TX_TitleIconify EQU 274
  36.     XDEF TX_GAD_DM
  37. TX_GAD_DM EQU 278
  38.     XDEF TX_GAD_BFR
  39. TX_GAD_BFR EQU 279
  40.     XDEF TX_GAD_FMK
  41. TX_GAD_FMK EQU 280
  42.     XDEF TX_GAD_FF
  43. TX_GAD_FF EQU 281
  44.     XDEF TX_GAD_IRF
  45. TX_GAD_IRF EQU 282
  46.     XDEF TX_GAD_LIT
  47. TX_GAD_LIT EQU 283
  48.     XDEF TX_GAD_LFR
  49. TX_GAD_LFR EQU 284
  50.     XDEF TX_GAD_HFL
  51. TX_GAD_HFL EQU 285
  52.     XDEF TX_GAD_OES
  53. TX_GAD_OES EQU 286
  54.     XDEF TX_GAD_ESC
  55. TX_GAD_ESC EQU 287
  56.     XDEF TX_GAD_PTA
  57. TX_GAD_PTA EQU 288
  58.     XDEF TX_GAD_EUROPE
  59. TX_GAD_EUROPE EQU 289
  60.     XDEF TX_GAD_EUR
  61. TX_GAD_EUR EQU 290
  62.     XDEF TX_GAD_GERMANY
  63. TX_GAD_GERMANY EQU 291
  64.     XDEF TX_GAD_BELGIUM
  65. TX_GAD_BELGIUM EQU 292
  66.     XDEF TX_GAD_FINLAND
  67. TX_GAD_FINLAND EQU 293
  68.     XDEF TX_GAD_FRANCE
  69. TX_GAD_FRANCE EQU 294
  70.     XDEF TX_GAD_IRELAND
  71. TX_GAD_IRELAND EQU 295
  72.     XDEF TX_GAD_ITALY
  73. TX_GAD_ITALY EQU 296
  74.     XDEF TX_GAD_LUXEMBURG
  75. TX_GAD_LUXEMBURG EQU 297
  76.     XDEF TX_GAD_NETHERLAND
  77. TX_GAD_NETHERLAND EQU 298
  78.     XDEF TX_GAD_AUSTRIA
  79. TX_GAD_AUSTRIA EQU 299
  80.     XDEF TX_GAD_PORTUGAL
  81. TX_GAD_PORTUGAL EQU 300
  82.     XDEF TX_GAD_SPAIN
  83. TX_GAD_SPAIN EQU 301
  84.  
  85.     ENDC ; CATCOMP_NUMBERS
  86.  
  87.  
  88. ;-----------------------------------------------------------------------------
  89.  
  90.  
  91.     IFD CATCOMP_STRINGS
  92.  
  93.     XDEF TX_WinTitle_STR
  94. TX_WinTitle_STR: DC.B 'Euro-Calculator',$00
  95.     XDEF TX_TitleIconify_STR
  96. TX_TitleIconify_STR: DC.B 'Euro-Calculator.iconified',$00
  97.     XDEF TX_GAD_DM_STR
  98. TX_GAD_DM_STR: DC.B 'DM',$00
  99.     XDEF TX_GAD_BFR_STR
  100. TX_GAD_BFR_STR: DC.B 'BFR',$00
  101.     XDEF TX_GAD_FMK_STR
  102. TX_GAD_FMK_STR: DC.B 'FMK',$00
  103.     XDEF TX_GAD_FF_STR
  104. TX_GAD_FF_STR: DC.B 'FF',$00
  105.     XDEF TX_GAD_IRF_STR
  106. TX_GAD_IRF_STR: DC.B 'IRF',$00
  107.     XDEF TX_GAD_LIT_STR
  108. TX_GAD_LIT_STR: DC.B 'LIT',$00
  109.     XDEF TX_GAD_LFR_STR
  110. TX_GAD_LFR_STR: DC.B 'LFR',$00
  111.     XDEF TX_GAD_HFL_STR
  112. TX_GAD_HFL_STR: DC.B 'HFL',$00
  113.     XDEF TX_GAD_OES_STR
  114. TX_GAD_OES_STR: DC.B 'OES',$00
  115.     XDEF TX_GAD_ESC_STR
  116. TX_GAD_ESC_STR: DC.B 'ESC',$00
  117.     XDEF TX_GAD_PTA_STR
  118. TX_GAD_PTA_STR: DC.B 'PTA',$00
  119.     XDEF TX_GAD_EUROPE_STR
  120. TX_GAD_EUROPE_STR: DC.B 'Europe:',$00
  121.     XDEF TX_GAD_EUR_STR
  122. TX_GAD_EUR_STR: DC.B 'EUR',$00
  123.     XDEF TX_GAD_GERMANY_STR
  124. TX_GAD_GERMANY_STR: DC.B 'Germany:',$00
  125.     XDEF TX_GAD_BELGIUM_STR
  126. TX_GAD_BELGIUM_STR: DC.B 'Belgium:',$00
  127.     XDEF TX_GAD_FINLAND_STR
  128. TX_GAD_FINLAND_STR: DC.B 'Finland:',$00
  129.     XDEF TX_GAD_FRANCE_STR
  130. TX_GAD_FRANCE_STR: DC.B 'France:',$00
  131.     XDEF TX_GAD_IRELAND_STR
  132. TX_GAD_IRELAND_STR: DC.B 'Ireland:',$00
  133.     XDEF TX_GAD_ITALY_STR
  134. TX_GAD_ITALY_STR: DC.B 'Italy:',$00
  135.     XDEF TX_GAD_LUXEMBURG_STR
  136. TX_GAD_LUXEMBURG_STR: DC.B 'Luxemburg:',$00
  137.     XDEF TX_GAD_NETHERLAND_STR
  138. TX_GAD_NETHERLAND_STR: DC.B 'Netherland:',$00
  139.     XDEF TX_GAD_AUSTRIA_STR
  140. TX_GAD_AUSTRIA_STR: DC.B 'Austria:',$00
  141.     XDEF TX_GAD_PORTUGAL_STR
  142. TX_GAD_PORTUGAL_STR: DC.B 'Portugal:',$00
  143.     XDEF TX_GAD_SPAIN_STR
  144. TX_GAD_SPAIN_STR: DC.B 'Spain:',$00
  145.  
  146.     ENDC ; CATCOMP_STRINGS
  147.  
  148.  
  149. ;-----------------------------------------------------------------------------
  150.  
  151.  
  152.     IFD CATCOMP_ARRAY
  153.  
  154.    STRUCTURE CatCompArrayType,0
  155.     LONG cca_ID
  156.     APTR cca_Str
  157.    LABEL CatCompArrayType_SIZEOF
  158.  
  159.     CNOP 0,4
  160.  
  161.     XDEF CatCompArray
  162. CatCompArray:
  163.     XDEF _CatCompArray
  164. _CatCompArray:
  165. AS0:    DC.L TX_WinTitle,TX_WinTitle_STR
  166. AS1:    DC.L TX_TitleIconify,TX_TitleIconify_STR
  167. AS2:    DC.L TX_GAD_DM,TX_GAD_DM_STR
  168. AS3:    DC.L TX_GAD_BFR,TX_GAD_BFR_STR
  169. AS4:    DC.L TX_GAD_FMK,TX_GAD_FMK_STR
  170. AS5:    DC.L TX_GAD_FF,TX_GAD_FF_STR
  171. AS6:    DC.L TX_GAD_IRF,TX_GAD_IRF_STR
  172. AS7:    DC.L TX_GAD_LIT,TX_GAD_LIT_STR
  173. AS8:    DC.L TX_GAD_LFR,TX_GAD_LFR_STR
  174. AS9:    DC.L TX_GAD_HFL,TX_GAD_HFL_STR
  175. AS10:    DC.L TX_GAD_OES,TX_GAD_OES_STR
  176. AS11:    DC.L TX_GAD_ESC,TX_GAD_ESC_STR
  177. AS12:    DC.L TX_GAD_PTA,TX_GAD_PTA_STR
  178. AS13:    DC.L TX_GAD_EUROPE,TX_GAD_EUROPE_STR
  179. AS14:    DC.L TX_GAD_EUR,TX_GAD_EUR_STR
  180. AS15:    DC.L TX_GAD_GERMANY,TX_GAD_GERMANY_STR
  181. AS16:    DC.L TX_GAD_BELGIUM,TX_GAD_BELGIUM_STR
  182. AS17:    DC.L TX_GAD_FINLAND,TX_GAD_FINLAND_STR
  183. AS18:    DC.L TX_GAD_FRANCE,TX_GAD_FRANCE_STR
  184. AS19:    DC.L TX_GAD_IRELAND,TX_GAD_IRELAND_STR
  185. AS20:    DC.L TX_GAD_ITALY,TX_GAD_ITALY_STR
  186. AS21:    DC.L TX_GAD_LUXEMBURG,TX_GAD_LUXEMBURG_STR
  187. AS22:    DC.L TX_GAD_NETHERLAND,TX_GAD_NETHERLAND_STR
  188. AS23:    DC.L TX_GAD_AUSTRIA,TX_GAD_AUSTRIA_STR
  189. AS24:    DC.L TX_GAD_PORTUGAL,TX_GAD_PORTUGAL_STR
  190. AS25:    DC.L TX_GAD_SPAIN,TX_GAD_SPAIN_STR
  191.  
  192.     ENDC ; CATCOMP_ARRAY
  193.  
  194.  
  195. ;-----------------------------------------------------------------------------
  196.  
  197.  
  198.     IFD CATCOMP_BLOCK
  199.  
  200.     XDEF CatCompBlock
  201. CatCompBlock:
  202.     XDEF _CatCompBlock
  203. _CatCompBlock:
  204.     DC.L $101
  205.     DC.W $10
  206.     DC.B 'Euro-Calculator',$00
  207.     DC.L $112
  208.     DC.W $1A
  209.     DC.B 'Euro-Calculator.iconified',$00
  210.     DC.L $116
  211.     DC.W $4
  212.     DC.B 'DM',$00,$00
  213.     DC.L $117
  214.     DC.W $4
  215.     DC.B 'BFR',$00
  216.     DC.L $118
  217.     DC.W $4
  218.     DC.B 'FMK',$00
  219.     DC.L $119
  220.     DC.W $4
  221.     DC.B 'FF',$00,$00
  222.     DC.L $11A
  223.     DC.W $4
  224.     DC.B 'IRF',$00
  225.     DC.L $11B
  226.     DC.W $4
  227.     DC.B 'LIT',$00
  228.     DC.L $11C
  229.     DC.W $4
  230.     DC.B 'LFR',$00
  231.     DC.L $11D
  232.     DC.W $4
  233.     DC.B 'HFL',$00
  234.     DC.L $11E
  235.     DC.W $4
  236.     DC.B 'OES',$00
  237.     DC.L $11F
  238.     DC.W $4
  239.     DC.B 'ESC',$00
  240.     DC.L $120
  241.     DC.W $4
  242.     DC.B 'PTA',$00
  243.     DC.L $121
  244.     DC.W $8
  245.     DC.B 'Europe:',$00
  246.     DC.L $122
  247.     DC.W $4
  248.     DC.B 'EUR',$00
  249.     DC.L $123
  250.     DC.W $A
  251.     DC.B 'Germany:',$00,$00
  252.     DC.L $124
  253.     DC.W $A
  254.     DC.B 'Belgium:',$00,$00
  255.     DC.L $125
  256.     DC.W $A
  257.     DC.B 'Finland:',$00,$00
  258.     DC.L $126
  259.     DC.W $8
  260.     DC.B 'France:',$00
  261.     DC.L $127
  262.     DC.W $A
  263.     DC.B 'Ireland:',$00,$00
  264.     DC.L $128
  265.     DC.W $8
  266.     DC.B 'Italy:',$00,$00
  267.     DC.L $129
  268.     DC.W $C
  269.     DC.B 'Luxemburg:',$00,$00
  270.     DC.L $12A
  271.     DC.W $C
  272.     DC.B 'Netherland:',$00
  273.     DC.L $12B
  274.     DC.W $A
  275.     DC.B 'Austria:',$00,$00
  276.     DC.L $12C
  277.     DC.W $A
  278.     DC.B 'Portugal:',$00
  279.     DC.L $12D
  280.     DC.W $8
  281.     DC.B 'Spain:',$00,$00
  282.  
  283.     ENDC ; CATCOMP_BLOCK
  284.  
  285.  
  286. ;-----------------------------------------------------------------------------
  287.  
  288.  
  289.    STRUCTURE LocaleInfo,0
  290.     APTR li_LocaleBase
  291.     APTR li_Catalog
  292.    LABEL LocaleInfo_SIZEOF
  293.  
  294.     IFD CATCOMP_CODE
  295.  
  296.     XREF      _LVOGetCatalogStr
  297.     XDEF      _GetString
  298.     XDEF      GetString
  299. GetString:
  300. _GetString:
  301.     lea       CatCompBlock(pc),a1
  302.     bra.s     2$
  303. 1$: move.w  (a1)+,d1
  304.     add.w     d1,a1
  305. 2$: cmp.l   (a1)+,d0
  306.     bne.s     1$
  307.     addq.l    #2,a1
  308.     move.l    (a0)+,d1
  309.     bne.s     3$
  310.     move.l    a1,d0
  311.     rts
  312. 3$: move.l  a6,-(sp)
  313.     move.l    d1,a6
  314.     move.l    (a0),a0
  315.     jsr       _LVOGetCatalogStr(a6)
  316.     move.l    (sp)+,a6
  317.     rts
  318.     END
  319.  
  320.     ENDC ; CATCOMP_CODE
  321.  
  322.  
  323. ;-----------------------------------------------------------------------------
  324.  
  325.  
  326.     ENDC ; EUROCALCFRAMECD_I
  327.